home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / lang / PPCsmalltalk.lha / PPCSmallTalk / examples / blocks.st < prev    next >
Text File  |  1986-10-19  |  566b  |  25 lines
  1. Class Main
  2. [
  3.     main
  4.         (2 < 3) ifTrue: ['correct-1' print].
  5.         ((2 < 3) ifTrue: ['correct-2']) print.
  6.         [:x | x print] value: 'correct-3' .
  7.         ((2 < 3) or: [3 < 4]) ifTrue: ['correct-4' print].
  8.         ((2 > 3) or: [3 < 4]) ifTrue: ['correct-5' print].
  9.         ((2 < 3) and: [3 < 4]) ifTrue: ['correct-6' print].
  10.         ((2 > 3) and: [3 < 4]) ifFalse: ['correct-7' print].
  11.         self test1 print
  12. |
  13.     test1
  14.         self test2: [^ 'correct-8'].
  15.         'should not print' print
  16. |
  17.     test2: aBlock
  18.         self test3: aBlock.
  19.         'should not print' print
  20. |
  21.     test3: bBlock
  22.         bBlock value.
  23.         'should not print' print
  24. ]
  25.